<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>8</cardCount>
<cardID>10616</cardID>
<listID>2792</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>544</width>
<height>400</height>
</cardSize>
<script>on DisposeVideoglobal movieIDif movieID is not empty and movieID is a number thenQTMovie Direct,movieID,Disposeput empty into movieIDend ifend DisposeVideoon openStackLogoput empty into fooQTMovie versionput the result into vput "QTMovie: " & v into line 1 of fooQTPict versionput the result into vput "QTPict: " & v into line 2 of fooQTRecordMovie versionput the result into vput "QTRecordMovie: " & v into line 3 of fooQTEditMovie versionput the result into vput "QTEditMovie: " & v into line 4 of fooput foo into cd field versions of card 1buildPopUpend OpenStackon openCardbuildPopupend openCardon newCardbuildPopUpend newCardon buildPopUpglobal menuItemsput empty into menuItemsrepeat with i = 1 to the number of cardsget the short name of card iput it & "," after menuItemsend repeatdelete last char of menuItems -- the last commaend buildPopUpon GoCardglobal menuItemsif there is a window "live video" then send videoOff to window "live video"get PopUpMenu (menuItems, 0, bottom of the target, left of the target+1)if there is a window "live video" then send videoOn to window "live video"if it > 0 thengo card itend iflogoend GoCardon AllClipQTPict ClipTo,"0,0,1280,1280"end AllClipon CloseStackAllClipend CloseStackon moveWindowLogoend moveWindowon openCardLogoend openCardon LogoAllClipQTPict DIsplayPict,QTLogo,"4,4",rsrcQTPict DiffClip,"4,4,78,92"end Logoon mouseDownLogoend MouseDownon resumeStackLogoend resumeStackfunction ExtractFileName FileNameput ":" into Delimiterif Delimiter is in FileName thenrepeat with CharPos = length(FileName) down to 1if char CharPos of FileName = Delimiterthen return char CharPos+1 to length(FileName) of FileNameend repeatreturn emptyelsereturn FileNameend ifend ExtractFileNamefunction ExtractPathName FileNameput ":" into Delimiterrepeat with CharPos = length(FileName) down to 1if char CharPos of FileName = Delimiterthen return char 1 to CharPos of FileNameend repeatreturn emptyend ExtractPathNameon primefieldsrepeat with i = 1 to the number of cardsif there is a field fileName of card i thenput "Your Volume:Your Folder:Your File" into field filename of card iend ifend repeatend primefields</script>
